home *** CD-ROM | disk | FTP | other *** search
- # Login.cmd for Paradise Communications, Inc.
- #
- # FileName : login.cmd
- # Author : Paradise Communications, Inc.
- # LastUpdate : 95/03/31
- #
- if ![load $number]
- if [query $number "Enter your dial up phone number"]
- save $number
- end
- end
- echo off
- output at&f\r
- input 30 OK
- output atx0&c1&d2\r
- input 30 OK
- display \nWelcome to Paradise Communications, Inc.\n
- display Your Internet Connection!\n
- #
- # Add *70,if you have call waiting on your phone.
- #
- display \n
- %attempts = 0
- repeat
- %attempts = %attempts + 1
- if %attempts = 26
- display Dialler gives up.....\n
- abort
- end
- display Attempts : %attempts :\n
- outputecho atdt$number\r
- %ok = [expect 60 \n]
- %ok = [expect 60 CONNECT]
- until %ok
- wait 30 dsr
- echo on
- input 30 ogin:
- username Enter your login name :
- output \u\13
- input 30 word:
- password Enter your password :
- output \p\13
- input 30 to
- address 10
- display \n
- display Connected. Your IP address is \i.\n
- display \nYou have connected to Paradise\n
- display Please limit your session to less than 2 hours.\n\n
- display You can minimize the "Trumpet Winsock" window right now.\n\n
- display Enjoy....\n\n
-